home *** CD-ROM | disk | FTP | other *** search
/ SGI Hot Mix 17 / Hot Mix 17.iso / HM17_SGI / research / lib / obsolete / listrep.pro < prev    next >
Text File  |  1997-07-08  |  437b  |  24 lines
  1. ; $Id: listrep.pro,v 1.2 1997/01/15 04:02:19 ali Exp $
  2. ;
  3. ;  Copyright (c) 1991-1997, Research Systems Inc.  All rights
  4. ;  reserved. Unauthorized reproduction prohibited.
  5.  
  6.  
  7.  pro ListRep,X,RowNum,Rows,here
  8. ; ListRep repairs a matrix that has had data thrown away in Listwise
  9.  
  10.   SX = size(X)
  11.  SX1 = SX(1)
  12.  
  13.  
  14.  count = N_Elements(RowNum)
  15.  SX2 = SX(2)+count
  16.  
  17.  X1 = Fltarr( SX1,SX2)
  18.  X1(*,here) =X
  19.  X1(*,RowNum) = Rows
  20.  X =X1
  21.  
  22.   return
  23.  end
  24.